home *** CD-ROM | disk | FTP | other *** search
/ Revista do CD-ROM 101 / CD-ROM 101.iso / compl / maya5ple / Install_MayaPLE5_English.exe / Maya / Data1.cab / DynCreateFluidsMenu.mel < prev    next >
Encoding:
Text File  |  2003-07-17  |  18.2 KB  |  557 lines
  1. // Copyright (C) 1997-2002 Alias|Wavefront,
  2. // a division of Silicon Graphics Limited.
  3. //
  4. // The information in this file is provided for the exclusive use of the
  5. // licensees of Alias|Wavefront.  Such users have the right to use, modify,
  6. // and incorporate this code into other products for purposes authorized
  7. // by the Alias|Wavefront license agreement, without fee.
  8. //
  9. // ALIAS|WAVEFRONT DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE,
  10. // INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO
  11. // EVENT SHALL ALIAS|WAVEFRONT BE LIABLE FOR ANY SPECIAL, INDIRECT OR
  12. // CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE,
  13. // DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER
  14. // TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR
  15. // PERFORMANCE OF THIS SOFTWARE.
  16. //
  17. //
  18. // Alias|Wavefront Script File
  19. // MODIFY THIS AT YOUR OWN RISK
  20. //
  21. // Creation Date:  13 April 1997
  22. // Author:         gf
  23. //
  24. //
  25. //  Procedure Name:
  26. //      DynCreateFluidsMenu
  27. //
  28. //  Description:
  29. //        Create the DYNAMICS->Fluids menu
  30. //
  31. //  Input Arguments:
  32. //      parent to parent the menu to.
  33. //
  34. //  Return Value:
  35. //      None.
  36. //
  37.  
  38.  
  39. global proc DynCreateFluidsMenu( string $parent )
  40. {
  41.     setParent -menu $parent;
  42.     if( `menu -query -numberOfItems $parent` != 0 ) {
  43.         //
  44.         //    Menu is built already - just return
  45.         //
  46.         return;
  47.     }
  48.     
  49.     menuItem -label "Create 3D Container"
  50.         -annotation (getRunTimeCommandAnnotation("Create3DContainer"))
  51.         -image "fluidCreate3D.xpm"
  52.         -command "Create3DContainer"
  53.         -dragMenuCommand "performFluids 1 Create3DFluid 2"
  54.         -dragDoubleClickCommand "Create3DContainerOptions";
  55.  
  56.     menuItem -optionBox true
  57.         -annotation (getRunTimeCommandAnnotation("Create3DContainerOptions"))
  58.         -command "Create3DContainerOptions";
  59.     
  60.     menuItem -label "Create 2D Container"
  61.         -annotation (getRunTimeCommandAnnotation("Create2DContainer"))
  62.         -image "fluidCreate2D.xpm"
  63.         -command "Create2DContainer"
  64.         -dragMenuCommand "performFluids 1 Create2DFluid 2"
  65.         -dragDoubleClickCommand "Create2DContainerOptions";
  66.  
  67.     menuItem -optionBox true
  68.         -annotation (getRunTimeCommandAnnotation("Create2DContainerOptions"))
  69.         -command "Create2DContainerOptions";
  70.  
  71.     // Contents
  72.     string $contentsItem = `menuItem -label "Add/Edit Contents" -subMenu true
  73.         -tearOff true -allowOptionBoxes true fluidsAddContentsItem`;
  74.     FluidContentsMenu $contentsItem;
  75.     setParent -menu ..;
  76.     
  77.     menuItem -label "Create 3D Container with Emitter"
  78.         -annotation (getRunTimeCommandAnnotation("Create3DContainerEmitter"))
  79.         -image "fluidCreate3DEmitter.xpm"
  80.         -command "Create3DContainerEmitter"
  81.         -dragMenuCommand "performFluids 1 3DFluidAndEmitter 2"
  82.         -dragDoubleClickCommand "Create3DContainerEmitterOptions";
  83.  
  84.     menuItem -optionBox true
  85.         -annotation (getRunTimeCommandAnnotation("Create3DContainerEmitterOptions"))
  86.         -command "Create3DContainerEmitterOptions";
  87.  
  88.     menuItem -label "Create 2D Container with Emitter"
  89.         -annotation (getRunTimeCommandAnnotation("Create2DContainerEmitter"))
  90.         -image "fluidCreate2DEmitter.xpm"
  91.         -command "Create2DContainerEmitter"
  92.         -dragMenuCommand "performFluids 1 2DFluidAndEmitter 2"
  93.         -dragDoubleClickCommand "Create2DContainerEmitterOptions";
  94.  
  95.     menuItem -optionBox true
  96.         -annotation (getRunTimeCommandAnnotation("Create2DContainerEmitterOptions"))
  97.         -command "Create2DContainerEmitterOptions";
  98.  
  99.     menuItem -divider true;
  100.  
  101.     menuItem -label "Get Fluid Example..." 
  102.         -annotation (getRunTimeCommandAnnotation("GetFluidExample"))
  103.         -image "fluidGetExamples.xpm"
  104.         -command "GetFluidExample";
  105.  
  106.     setParent -menu ..;
  107.  
  108.     menuItem -label "Get Ocean/Pond Example..." 
  109.         -annotation (getRunTimeCommandAnnotation("GetOceanPondExample"))
  110.         -image "fluidOceanPresets.xpm"
  111.         -command "GetOceanPondExample";
  112.  
  113.     setParent -menu ..;
  114.  
  115.     menuItem -label "Fluid Examples on the Web..." 
  116.         -annotation (getRunTimeCommandAnnotation("FluidExamplesOnTheWeb"))
  117.         -image "fluidGetWebExamples.xpm"
  118.         -command ( "FluidExamplesOnTheWeb" );
  119.  
  120.     setParent -menu ..;
  121.  
  122.     menuItem -divider true;
  123.  
  124.     // Ocean
  125.     string $oceanItem = `menuItem -label "Ocean" -subMenu true 
  126.         -tearOff true -allowOptionBoxes true`;
  127.     FluidOceanMenu $oceanItem;
  128.     setParent -menu ..;
  129.  
  130.     menuItem -divider true;
  131.  
  132.     // Pond
  133.     string $pondItem = `menuItem -label "Pond" -subMenu true 
  134.         -tearOff true -allowOptionBoxes true`;
  135.     FluidPondMenu $pondItem;
  136.     setParent -menu ..;
  137.     
  138.     menuItem -divider true;
  139.         
  140.     menuItem -label "Extend Fluid"
  141.         -annotation (getRunTimeCommandAnnotation("ExtendFluid"))
  142.         -image "fluidExtend.xpm"
  143.         -command "ExtendFluid"
  144.         -dragMenuCommand "performFluids 1 ExtendFluid 2"
  145.         -dragDoubleClickCommand "ExtendFluidOptions";
  146.  
  147.     menuItem -optionBox true
  148.         -annotation (getRunTimeCommandAnnotation("ExtendFluidOptions"))
  149.         -command "ExtendFluidOptions";
  150.  
  151.     menuItem -label "Edit Fluid Resolution"
  152.         -annotation (getRunTimeCommandAnnotation("EditFluidResolution"))
  153.         -image "fluidEditRes.xpm"
  154.         -command "EditFluidResolution"
  155.         -dragMenuCommand "performFluids 1 ResampleFluid 2"
  156.         -dragDoubleClickCommand "EditFluidResolutionOptions";
  157.  
  158.     menuItem -optionBox true
  159.         -annotation (getRunTimeCommandAnnotation("EditFluidResolutionOptions"))
  160.         -command "EditFluidResolutionOptions";
  161.  
  162.     menuItem -label "Make Collide" 
  163.         -annotation (getRunTimeCommandAnnotation("MakeFluidCollide"))
  164.         -image "fluidCollide.xpm"
  165.         -command "MakeFluidCollide" 
  166.         -dragMenuCommand "performFluids 2 MakeCollideFluid 2"
  167.         -dragDoubleClickCommand "MakeFluidCollideOptions";
  168.  
  169.  
  170.     menuItem -optionBox true
  171.         -annotation (getRunTimeCommandAnnotation("MakeFluidCollideOptions"))
  172.         -command "MakeFluidCollideOptions";
  173.  
  174.     menuItem -label "Make Motion Field" 
  175.         -annotation (getRunTimeCommandAnnotation("MakeMotionField"))
  176.         -command "MakeMotionField" ;
  177.  
  178.     menuItem -divider true;
  179.         
  180.     menuItem -label "Set Initial State"
  181.         -annotation (getRunTimeCommandAnnotation("SetInitialState"))
  182.         -image "fluidInitialStateSet.xpm"
  183.         -command "SetInitialState"
  184.         -dragMenuCommand "performSetFluidState 2"
  185.         -dragDoubleClickCommand "SetInitialStateOptions";
  186.  
  187.     menuItem -optionBox true
  188.         -annotation (getRunTimeCommandAnnotation("SetInitialStateOptions"))
  189.         -command "SetInitialStateOptions";    
  190.  
  191.     menuItem -label "Clear Initial State"
  192.         -annotation (getRunTimeCommandAnnotation("ClearInitialState"))
  193.         -image "fluidInitialStateClear.xpm"
  194.         -command "ClearInitialState" ;
  195.  
  196.     menuItem -label "Save State As..."
  197.         -annotation (getRunTimeCommandAnnotation("SaveFluidStateAs"))
  198.         -command "SaveFluidStateAs";
  199.  
  200.     menuItem -label "Create Cache"
  201.         -annotation (getRunTimeCommandAnnotation("CreateFluidCache"))
  202.         -image "fluidCacheCreate.xpm"
  203.         -command "CreateFluidCache"
  204.         -dragMenuCommand "performFluidsDiskCache 2 mcfp"
  205.         -dragDoubleClickCommand "CreateFluidCacheOptions";
  206.  
  207.     menuItem -optionBox true
  208.         -annotation (getRunTimeCommandAnnotation("CreateFluidCacheOptions"))
  209.         -command "CreateFluidCacheOptions";    
  210.  
  211.     menuItem -label "Append to Cache"
  212.         -annotation (getRunTimeCommandAnnotation("AppendToFluidCache"))
  213.         -image "fluidCacheAppend.xpm"
  214.         -command "AppendToFluidCache"
  215.         -dragMenuCommand "performAppendDiskCache 2"
  216.         -dragDoubleClickCommand "AppendToFluidCacheOptions";
  217.  
  218.     menuItem -optionBox true
  219.         -annotation (getRunTimeCommandAnnotation("AppendToFluidCacheOptions"))
  220.         -command "AppendToFluidCacheOptions";    
  221.  
  222.     menuItem -label "Truncate Cache"
  223.         -annotation (getRunTimeCommandAnnotation("TruncateFluidCache"))
  224.         -image "fluidCacheTruncate.xpm"
  225.         -command "TruncateFluidCache";
  226.  
  227.     menuItem -label "Delete Cache"
  228.         -annotation (getRunTimeCommandAnnotation("DeleteFluidCache"))
  229.         -image "fluidCacheDelete.xpm"
  230.         -command "DeleteFluidCache";
  231. }
  232.  
  233. global proc FluidContentsMenu( string $parent )
  234. //
  235. // Build the Add Contents Submenu
  236. {
  237.     setParent -menu $parent;
  238.  
  239.     menuItem -label "Emitter"
  240.         -annotation (getRunTimeCommandAnnotation("FluidEmitter"))
  241.         -image "fluidEmitterAdd.xpm"
  242.         -command "FluidEmitter"
  243.         -dragMenuCommand "performFluids 2 FluidEmitter 2"
  244.         -dragDoubleClickCommand "FluidEmitterOptions";
  245.  
  246.     menuItem -optionBox true
  247.         -annotation (getRunTimeCommandAnnotation("FluidEmitterOptions"))
  248.         -command "FluidEmitterOptions";
  249.  
  250.     menuItem -label "Emit from Object" 
  251.         -annotation (getRunTimeCommandAnnotation("EmitFluidFromObject"))
  252.         -image "fluidObjectEmit.xpm"
  253.         -command "EmitFluidFromObject"
  254.         -dragMenuCommand "performFluids 0 FluidEmitFromObject 2"
  255.         -dragDoubleClickCommand "EmitFluidFromObjectOptions";
  256.  
  257.     menuItem -optionBox true
  258.         -annotation (getRunTimeCommandAnnotation("EmitFluidFromObjectOptions"))
  259.         -command "EmitFluidFromObjectOptions";
  260.  
  261.     menuItem -label "Gradients"
  262.         -annotation (getRunTimeCommandAnnotation("FluidGradients"))
  263. //        -image "fluidGradients.xpm"
  264.         -command "FluidGradients"
  265.         -dragMenuCommand "performFluidGradients 2"
  266.         -dragDoubleClickCommand "FluidGradientsOptions";        
  267.  
  268.     menuItem -optionBox true
  269.         -annotation (getRunTimeCommandAnnotation("FluidGradientsOptions"))
  270.         -command "FluidGradientsOptions";
  271.  
  272.     menuItem -label "Paint Fluids Tool"
  273.         -annotation (getRunTimeCommandAnnotation("PaintFluidsTool"))
  274.         -image "fluidPaint.xpm"
  275.         -command "PaintFluidsTool"
  276.         -dragDoubleClickCommand "PaintFluidsToolOptions";
  277.  
  278.     menuItem -optionBox true
  279.         -annotation (getRunTimeCommandAnnotation("PaintFluidsToolOptions"))
  280.         -command "PaintFluidsToolOptions";
  281.  
  282.     menuItem -label "With Curve"
  283.         -annotation (getRunTimeCommandAnnotation("SetFluidAttrFromCurve"))
  284. //        -image ""
  285.         -command "SetFluidAttrFromCurve"
  286.         -dragDoubleClickCommand "SetFluidAttrFromCurveOptions";
  287.  
  288.     menuItem -optionBox true
  289.         -annotation (getRunTimeCommandAnnotation("SetFluidAttrFromCurveOptions"))
  290.         -command "SetFluidAttrFromCurveOptions";
  291.  
  292.     menuItem -label "Initial States..." 
  293.         -image "fluidGetInitialStatePresets.xpm"
  294.         -annotation (getRunTimeCommandAnnotation( "InitialFluidStates"))
  295.         -command "InitialFluidStates";
  296.  
  297.     menuItem -optionBox true
  298.         -annotation (getRunTimeCommandAnnotation( "InitialFluidStatesOptions"))
  299.         -command "InitialFluidStatesOptions";
  300.  
  301.     setParent -menu ..;
  302. }
  303.  
  304. global proc fluidSetSubVolumeLocation( int $relAmount ) 
  305. //
  306. // Description:
  307. //    Increase the center slice location of the fluid subvolume
  308. //    by the relative amount passed in.
  309. //
  310. {
  311.     if( !`exists getActiveFluidShapes` ) {
  312.         source "getFluidShape.mel";
  313.     }
  314.  
  315.     string $fluids[] = getActiveFluidShapes();
  316.     if( size( $fluids ) == 0 ) {
  317.         error( "No fluids selected" );
  318.     }
  319.  
  320.  
  321.     for( $f in $fluids ) {
  322.         if( `getAttr ($f + ".is2d")` ) {
  323.             warning( "Cannot set sub-volume location on 2d fluids" );
  324.             continue;
  325.         }
  326.  
  327.         // If not displaying a subvolume, issue a warning that you
  328.         // won't see any effect...  (But don't prevent it -- you might
  329.         // want to see the manipulator slice move around?)
  330.         //
  331.         if( `getAttr ($f + ".dsv" )` == 0 ) {
  332.             warning( $f + " is not displaying a sub-volume.  Use the " +
  333.                    "Fluid Sub-Volume Tool to turn on display and " +
  334.                    "modify the size of a sub-volume." );
  335.         }
  336.  
  337.         int $axis = 0;
  338.         float $center[] = `getAttr ($f + ".svc")`;
  339.         for( $i = 0; $i <= 2; $i++ ) {
  340.             if( $center[$i] != -1 ) {
  341.                 $axis = $i;
  342.                 break;
  343.             }
  344.         }
  345.  
  346.         $center[$axis] = $center[$axis] + $relAmount;
  347.  
  348.         float $dim[] = `getAttr ($f + ".resolution")`;
  349.         if( $center[$axis] >= $dim[$axis] ) {
  350.             error( "Location cannot be greater than fluid resolution.");
  351.         } else if( $center[$axis] < 0 ) {
  352.             error( "Location cannot be less than 0.");
  353.         } else {
  354.             setAttr ($f + ".svc") $center[0] $center[1] $center[2];
  355.         }
  356.     }
  357. }
  358.  
  359. global proc FluidOceanMenu( string $parent )
  360. //
  361. // Build the Ocean Submenu
  362. {
  363.     setParent -menu $parent;
  364.  
  365.     menuItem -label "Create Ocean"
  366.         -annotation (getRunTimeCommandAnnotation("CreateOcean"))
  367.         -image "fluidCreateOcean.xpm"
  368.         -command "CreateOcean"
  369.         -dragMenuCommand "performCreateOcean 2"
  370.         -dragDoubleClickCommand "CreateOceanOptions";
  371.  
  372.     menuItem -optionBox true
  373.         -annotation (getRunTimeCommandAnnotation("CreateOceanOptions"))
  374.         -command "CreateOceanOptions";
  375.  
  376.     menuItem -label "Add Preview Plane"
  377.         -annotation (getRunTimeCommandAnnotation("AddOceanPreviewPlane"))
  378.         -image "fluidaddOceanPreviewPlane.xpm"
  379.         -command "AddOceanPreviewPlane";
  380.  
  381.     menuItem -label "Create Wake"
  382.         -annotation (getRunTimeCommandAnnotation("CreateOceanWake"))
  383.         -image "fluidaddOceanPreviewPlane.xpm"
  384.         -command "CreateOceanWake"
  385.         -dragMenuCommand "performCreateOceanWake 2"
  386.         -dragDoubleClickCommand "CreateOceanWakeOptions";
  387.  
  388.     menuItem -optionBox true
  389.         -annotation (getRunTimeCommandAnnotation("CreateOceanWakeOptions"))
  390.         -command "CreateOceanWakeOptions";
  391.     
  392.     menuItem -label "Add Ocean Surface Locator"
  393.         -annotation (getRunTimeCommandAnnotation("AddOceanSurfaceLocator"))
  394.         -image "fluidaddOceanLocator.xpm"
  395.         -command "AddOceanSurfaceLocator";
  396.  
  397.     menuItem -label "Add Dynamic Locator"
  398.         -annotation (getRunTimeCommandAnnotation("AddOceanDynamicLocator"))
  399.         -command "AddOceanDynamicLocator"
  400.         -dragMenuCommand "performOceanLocator 2 1"
  401.         -dragDoubleClickCommand "AddOceanDynamicLocatorOptions";
  402.  
  403.     menuItem -optionBox true
  404.         -annotation (getRunTimeCommandAnnotation("AddOceanDynamicLocatorOption"))
  405.         -command "AddOceanDynamicLocatorOptions";
  406.  
  407.     menuItem -label "Add Boat Locator"
  408.         -annotation (getRunTimeCommandAnnotation("AddBoatLocator"))
  409.         -command "AddBoatLocator"
  410.         -dragMenuCommand "performOceanLocator 2 3"
  411.         -dragDoubleClickCommand "AddBoatLocatorOptions";
  412.  
  413.     menuItem -optionBox true
  414.         -annotation (getRunTimeCommandAnnotation("AddBoatLocatorOptions"))
  415.         -command "AddBoatLocatorOptions";
  416.  
  417.     menuItem -label "Add Dynamic Buoy"
  418.         -annotation (getRunTimeCommandAnnotation("AddDynamicBuoy"))
  419.         -command "AddDynamicBuoy"
  420.         -dragMenuCommand "performOceanLocator 2 2"
  421.         -dragDoubleClickCommand "AddDynamicBuoyOptions";
  422.  
  423.     menuItem -optionBox true
  424.         -annotation (getRunTimeCommandAnnotation("AddDynamicBuoyOptions"))
  425.         -command "AddDynamicBuoyOptions";
  426.  
  427.     menuItem -label "Float Selected Objects"
  428.         -annotation (getRunTimeCommandAnnotation("FloatSelectedObjects"))
  429.         -command "FloatSelectedObjects"
  430.         -dragMenuCommand "performOceanLocator 2 4"
  431.         -dragDoubleClickCommand "FloatSelectedObjectsOptions";
  432.  
  433.     menuItem -optionBox true
  434.         -annotation (getRunTimeCommandAnnotation("FloatSelectedObjectsOptions"))
  435.         -command "FloatSelectedObjectsOptions";
  436.     
  437.     menuItem -label "Make Boats"
  438.         -annotation (getRunTimeCommandAnnotation("MakeBoats"))
  439.         -command "MakeBoats"
  440.         -dragMenuCommand "performOceanLocator 2 5"
  441.         -dragDoubleClickCommand "MakeBoatsOptions";
  442.  
  443.     menuItem -optionBox true
  444.         -annotation (getRunTimeCommandAnnotation("MakeBoatsOptions"))
  445.         -command "MakeBoatsOptions";
  446.  
  447.     menuItem -label "Make Motor Boats"
  448.         -annotation (getRunTimeCommandAnnotation("MakeMotorBoats"))
  449.         -image "fluidOceanMotorBoats.xpm"
  450.         -command "MakeMotorBoats"
  451.         -dragMenuCommand "performOceanLocator 2 6"
  452.         -dragDoubleClickCommand "MakeMotorBoatsOptions";
  453.  
  454.     menuItem -optionBox true
  455.         -annotation (getRunTimeCommandAnnotation("MakeMotorBoatsOptions"))
  456.         -command "MakeMotorBoatsOptions";
  457.  
  458.     setParent -menu ..;
  459. }
  460.  
  461. global proc FluidPondMenu( string $parent )
  462. //
  463. // Build the Pond Submenu
  464. {
  465.     setParent -menu $parent;
  466.  
  467.     menuItem -label "Create Pond"
  468.         -annotation (getRunTimeCommandAnnotation("CreatePond"))
  469.         -image "fluidCreatePond.xpm"
  470.         -command "CreatePond"
  471.         -dragMenuCommand "performCreatePond 2"
  472.         -dragDoubleClickCommand "CreatePondOptions";
  473.  
  474.     menuItem -optionBox true
  475.         -annotation (getRunTimeCommandAnnotation("CreatePondOptions"))
  476.         -command "CreatePondOptions";
  477.  
  478.     menuItem -label "Create Wake"
  479.         -annotation (getRunTimeCommandAnnotation("CreateWake"))
  480.         -command "CreateWake"
  481.         -dragMenuCommand "performCreateWake 2"
  482.         -dragDoubleClickCommand "CreateWakeOptions";
  483.  
  484.     menuItem -optionBox true
  485.         -annotation (getRunTimeCommandAnnotation("CreateWakeOptions"))
  486.         -command "CreateWakeOptions";
  487.  
  488.     menuItem -label "Add Pond Surface Locator"
  489.         -annotation (getRunTimeCommandAnnotation("AddPondSurfaceLocator"))
  490.         -image "fluidaddOceanLocator.xpm"
  491.         -command "AddPondSurfaceLocator";
  492.  
  493.     menuItem -label "Add Dynamic Locator"
  494.         -annotation (getRunTimeCommandAnnotation("AddPondDynamicLocator"))
  495.         -command "AddPondDynamicLocator"
  496.         -dragMenuCommand "performPondLocator 2 1"
  497.         -dragDoubleClickCommand "AddPondDynamicLocatorOptions";
  498.  
  499.     menuItem -optionBox true
  500.         -annotation (getRunTimeCommandAnnotation("AddPondDynamicLocatorOption"))
  501.         -command "AddPondDynamicLocatorOptions";
  502.  
  503.     menuItem -label "Add Boat Locator"
  504.         -annotation (getRunTimeCommandAnnotation("AddBoatLocator"))
  505.         -command "AddPondBoatLocator"
  506.         -dragMenuCommand "performPondLocator 2 3"
  507.         -dragDoubleClickCommand "AddPondBoatLocatorOptions";
  508.  
  509.     menuItem -optionBox true
  510.         -annotation (getRunTimeCommandAnnotation("AddBoatLocatorOptions"))
  511.         -command "AddPondBoatLocatorOptions";
  512.  
  513.     menuItem -label "Add Dynamic Buoy"
  514.         -annotation (getRunTimeCommandAnnotation("AddDynamicBuoy"))
  515.         -command "AddPondDynamicBuoy"
  516.         -dragMenuCommand "performPondLocator 2 2"
  517.         -dragDoubleClickCommand "AddPondDynamicBuoyOptions";
  518.  
  519.     menuItem -optionBox true
  520.         -annotation (getRunTimeCommandAnnotation("AddDynamicBuoyOptions"))
  521.         -command "AddPondDynamicBuoyOptions";
  522.  
  523.     menuItem -label "Float Selected Objects"
  524.         -annotation (getRunTimeCommandAnnotation("FloatSelectedObjects"))
  525.         -command "FloatSelectedPondObjects"
  526.         -dragMenuCommand "performPondLocator 2 4"
  527.         -dragDoubleClickCommand "FloatSelectedPondObjectsOptions";
  528.  
  529.     menuItem -optionBox true
  530.         -annotation (getRunTimeCommandAnnotation("FloatSelectedObjectsOptions"))
  531.         -command "FloatSelectedPondObjectsOptions";
  532.     
  533.     menuItem -label "Make Boats"
  534.         -annotation (getRunTimeCommandAnnotation("MakeBoats"))
  535.         -command "MakePondBoats"
  536.         -dragMenuCommand "performPondLocator 2 5"
  537.         -dragDoubleClickCommand "MakePondBoatsOptions";
  538.  
  539.     menuItem -optionBox true
  540.         -annotation (getRunTimeCommandAnnotation("MakeBoatsOptions"))
  541.         -command "MakePondBoatsOptions";
  542.  
  543.     menuItem -label "Make Motor Boats"
  544.         -annotation (getRunTimeCommandAnnotation("MakeMotorBoats"))
  545.         -image "fluidOceanMotorBoats.xpm"
  546.         -command "MakePondMotorBoats"
  547.         -dragMenuCommand "performPondLocator 2 6"
  548.         -dragDoubleClickCommand "MakePondMotorBoatsOptions";
  549.  
  550.     menuItem -optionBox true
  551.         -annotation (getRunTimeCommandAnnotation("MakeMotorBoatsOptions"))
  552.         -command "MakePondMotorBoatsOptions";
  553.  
  554.     setParent -menu ..;
  555. }
  556.  
  557.